home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / misc / LockupV4_3.lha / Install_Lockup < prev    next >
Text File  |  1997-04-12  |  1KB  |  65 lines
  1.  
  2. (message "\n\nLockup V 4.3 Install\n\nBy Stuart Kelly\n\nCopyright 1997 ©")
  3.  
  4. (welcome "Welcome to Lockup Install.")
  5.  
  6. (complete 0)
  7.  
  8. (set path
  9.     (askdir
  10.       (prompt "Select where to install. A drawer will be created")
  11.       (help @askdir-help)
  12.       (default "Ram:")
  13.     )
  14. )
  15.  
  16. (complete 10)
  17.  
  18. (message "\nInstall To:\n\n'" path "'\n\n Press Proceed to continue.")
  19.  
  20.  
  21. (makeassign "Locki" path)
  22.  
  23. (set lockdir "Locki:Lock")
  24.  
  25. (makedir lockdir
  26.    (prompt "\nCreating Dir '" path "Lock'\n This Drawer Must Be Created")
  27.    (infos)
  28.    (help @makedir-help)
  29. )
  30.  
  31.  
  32. (complete 50)
  33.  
  34. (copyfiles
  35.      (dest "Locki:Lock/")
  36.      (source "l/")
  37.      (prompt "Copying Files...")
  38.      (all)
  39. )
  40.  
  41. (complete 98)
  42.  
  43. (set startstring (cat "c:assign Locki: " path ""))
  44.  
  45. (startup "Lockup V 4.3"
  46.  (prompt "\n Some instructions need to be added to s:user-startup\n for Lockup V 4.3 to work.")
  47.  (help "No Help Given Here.")
  48.  (command startstring "\n" "c:assign Lockup: Locki:Lock/" "\n" "C:execute Lockup:L4.3")
  49. )
  50.  
  51. (complete 100)
  52.  
  53. ;(message "\n Lockup Installed to:\n\n'" path "'")
  54.  
  55.  
  56. (exit
  57.      (cat
  58.          "Lockup Installed to:\n\n'" path "'."
  59.      )
  60.      (quiet)
  61. )
  62.  
  63.  
  64. ; END OF SCRIPT
  65.